extern int dlarft_(char *direct, char *storev, integer *n, integer *k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, integer *ldt, ftnlen direct_len, ftnlen storev_len);
/*:ref: lsame_ 12 4 13 13 124 124 */
/*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
/*:ref: dtrmv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
